home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / syswtch.exe / SYSGLOB.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-11-14  |  1017 b   |  21 lines
  1. DefInt A-Z
  2. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  3. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  4. Declare Function ExitWindows Lib "User" (ByVal dwReserved As Long, ByVal wReturnCode As Integer) As Integer
  5. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  6. Global Const IDYES = 6
  7. Global Const IDNO = 7
  8. Global Const TRUE = -1
  9. Global Const FALSE = 0
  10. Global Const OffSet = 4
  11. Global Const BigOffSet = 6
  12. Global Windir As String
  13. Global WasRecordChanged
  14. Global WorkingFileName As String
  15. Global ReadString As String * 129
  16. Global NameC(5) As String
  17. Global FileC(5) As String
  18. Global FileNum
  19. Global Handoff
  20.  
  21.